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LE SSIK (IDENT = ‘V04-000") = 


leePeHeReHEHHAKAHEHHEAOHHHHEAHAHETHEKAHHHHHAHAHAHHeKeHHeeReAKeteeeteReeeeTeeee 


COPYRIGHT (c) 1978 
DIGITAL EQUIPMENT COR 
ALL RIGHTS RESERVED. 


me Mie: IS FURNISHED UNDER A LICENSE AND MAY BE USED AND copies 
CCORDANCE WITH THE TERMS OF reve" LICENSE ae D WITH THE 

TneLu Ton OF ia B ABOVE COPYRIGHT NOTICE. THIS soft ARE OR ANY OTHER 
COPIES THER oe oy BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
faastemie TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT 
AND SHOULD NOT BE CONSTRUED AS A COMM! 
CORPORATION. 


DIGITAL ASSUMES NO RESPONS!BI 
SOFTWARE ON EQUIPMENT WHICH I 


1980, 1982, 1984 BY 


PORATION, MAYNARD, MASSACHUSETTS. 


TO CHANGE WITHOUT NOTICE 
TMENT BY DIGITAL EQUIPMENT 


LITY FOR THE USE OR RELIABILITY OF ITS 
S NOT SUPPLIED BY DIGITAL. 
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lee 
} FACILITY: VAX/VMS System Service Call Monitor 
i ABSTRACT: 


This module makes a copy of ee Service vector in PO space, 
then modifies the System Service vector JSB into intercept code. 


$$1.832 is split into 2 portions: SSIK §5¢ is strictly running 
pF agen mode to do the setup, $S1U.B32 is running in user 
e only. 


i ENVIRONMENT : 


VAX/VMS operating system, CMKRNL privilege required. 


i AUTHOR: David Thiel, 30-Dec-1981 
i Modified by: 


Ping Sager, 19-Sep-1983 


i Include files 


‘ 
‘ 
i 
LIBRARY 'SYSSLIBRAR 
REQUIRE ‘SRC$:SSID 


Y:L1B.L32'; ' VAX/VMS common definitions 
EF.R REO’: ' Definitions for SSI 
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$-32_ V4.0-742 
TER: (DeBus. SRCISSIK.B32;1 


Page 


1 
(1) 


vi 


Fe 


SELSSFERESS 8 


! Table of contents 


' 

i 

: 

FORWARD ROUTINE 
ssik start, 
make_p0 space, 
ssik_sefup; 


GLOBAL 
ssv_munged_flag: INITIAL‘0), 


ase : REF BBLOCK 
ntercept : REF YECTOR C, BYTE), 


range : VECTOR (2, LONG); 


WMO CONO US Ut O0OOn 


“ 


uw WR OOS NOUR UNO Dee 


tv 
rangei : VECTOR (2. LONG), 
range2 : VECTOR (2, LONG); 


‘ 
External routines 


EXTERNAL ROUTINE 


Se Se Ge Ge Fe Ge Ge Se Ge Ge Se Ge Se Se Se Se Ge Se Se Ge Gee 
SANS 
oo ws 
pele fe lola lo leleolelolalealelelolololelelelolelelolelolololelololelel aloo ola) 
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issh_data_beg, 
issh_data_en 
issh“prio-mask, 


me a a a a a a a = = at 4 2 = 4 2s 2 4 2 9 — 4 


Be Oe Se Se Se Oe Be Se Se Oe Se Se Se Be Se Se Se Se Se Se Se Fe Se Ge Se Se Se Se Ge Se Se Se Se SHS Ss Se Se Se FF Se Se Se Se Se Se Se SH SH Ss Se Oe Se Se Ge 
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issh_vec_base, 


3 
HBeseo-19Re 25:41:19 vat BLise-52_v4_0-742 


' 
! and we are not jatercepe tng gayteine i 
' need to have this flag to indicate thi 
79 ! is set to indicate the other part (SSIU 
8° : user mode. 
Be EXTERNAL 
8 ssi_running_ flag; 
85 OWN 
l_base, 
l_intercept, 


MSMAS 


Main routine 
Allocate save/data/code area in PO 
Establish intercept 


Set to TRUE when we actually 
change the system service vector. 


! Address of system service vector 


Address of saved systes vector, 
data, code area in PO 

Popes allocated in PO 
maps in ISSH.MAR) 


This portion (SSIK.832) of the $$1.832 is stictly running in kernel mode, 


kernel mode. So there is no 
pssgres is rynntne, This flag 
-B32) is running which runs in 


Flag set to indicate (SSIU.B32) is 
running 


Variables (good for testing usage) 

(resident) copy of base 

(resident) copy of intercept 

(resident) copy of pointer 

Maps in data area in range 

Created virtual space over system 
service vector 


won't 9° away after image rundown 
Begin 

End data area (template) 

Mask to control the calling of the 
user routines 

ISSH base address 


ata area (template) 


SSI_USSK : ADDRESSING MODE (GENERAL) 

1 sys$cretva : ADDRESSING MODE (ABSOLUTE), ! Create virtual address space 
1 +3 sys$qiow : ADDRESSING MODE (ABSOLUTE) ' Base of transfer vector 
1 189 sys$rundwn : ADDRESSING_MODE (ABSOLUTE), ' Rundown 
1 130 issh_entry, ' Intercept code entry (ISSH) 
: + reset_ssv; ! Clean up the mess 
1 198 EXTERNAL LITERAL 
; \3e issh_vec_length; ! Length of monitor code (ISSH) 
1 196 leery | 
: ctl$gl_ctlbasva : ADDRESSING_MODE (ABSOLUTE),! Not used, if set, PO 
1 1 
1 
1 
1 
1 


RCJSSIK.B32;1 


rr 
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issh_running_ flag, 
issh_stack, 


issh stkptr, 


ssi_fable : VECTOR C, LONG); 


WSeseoct9pe 25:41:18 yey atisees2 ve,0-74 


C 


ae n pointer to ssi_running_flag 


Local stack in PO to keep track 
wh 


ch user routine is active 


at the moment 
Pointer to the above local stack 
Configuration SS data table 


Shcrssix.e32:1°°" «23 
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GLOBAL ROUTINE ssik_start (RUNDWN_ADDR) = 


' 
Function: 


ad is the main routine of the VAX/VMS System Service 


i 
i 
i 
itor. It calls appropriate actions. 

Inputs: 

RUNDWN_ADDR : This address only can be rundown system index. 

Outputs: 

Worst status encountered. 


BEGIN ! 
BUILTIN FP; | 
LOCAL 
prio_mask: REF VECTORC,BYTE), ! Current mask value after set 
status; ! Return status 


Check for rundown case. The only way for this case to sow up: 
SYSSRUNDWN is called when image exits and waseraees system service 
is setup. We simply put SSV back, and delete PO space. 


' 
i 
i 
i 
! Note: next Line is temporary, for 1 use the last 4 longwords in 
! $SV itself to store some values. 
intercept = .(SYS$SQ10W + sgn$c_sysvecpgs * 512 - 4); 
If .rundwn_addr EQL SYSSRUNDWN 
THEN 
BEGIN 
IF .intercept EQL 0 THEN RETURN 0; ! Can't be possible. 


J 
status = reset_ssv(); ' Call routine to Clean up. 
RETURN .status; ' Return Status. (Actually 
END; ! status is always 1). 


! If this code is first time called, sets up the intercept, else simply 
: returns. 


if .intercept NEQ 0 THEN RETURN ss$_normal; 


! PO space has not been set up by anyone yet. Grap some space. 
' Set up SSV. 


base = sys$qiow; 

status = make pb. space(): 

If .status THEN Status = ssik_setup(); 
If NOT .status THEN RETURN .sfatus; 
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; fiag gets cleared in RESET 
ssv_munged_flag = 1; 


this 


apris mask = 
TURR ss$ _normal; 


> Db 4 2 tb 4) 4 a 


SESFSS2 
RENES SoS ONISS 
PWn—OO 


00000 L_BAS 
00004 LZINT 
90008 L Tv 

000C RANGE 
00014 RANGE 


00000000 00000 SSV_MUNGED_FLAG:: 
LONG 


198e T3:1b:80  PreRsvmehATERccCoeBuG.sacIssiK.e32;1° 9% 35 


0004 BASE:: 
0008 INTERCEPT:: 


QO000C RANGE:: 


000000006 ¢ o000803H6 7 as 


phat ve we have modified the system service vector 
$ os ndicates that the tystee service vector has 


-TITLE 
- IDENT 


»PSECT 


-PSECT 


*BLKB 


«BLK 
-BLKB 


EXTRN 

»PSECT 

-ENTRY 
AB 


set the global fla 
been modified. This . 


¢ eRe "eh Toe Current mask to 0. (Assume nothing is active at 


prio. mask = -intercept + issh_prio_mask = issh_vec_base; 


ssik 
\V04-000\ 
SOWNS ,NOEXE ,2 
4 

4 


SGLOBALS ,NOEXE ,2 


0 
4 
4 
8 
SSI_ 
$S1~ 
SYSSQ10W, SY 

1SSH_ ENTRY Reset. at 

SSH V C_LENGTH 

fiseee frtBa ASVA 
ISSH_DATA_BEG, ISSH_DATA_END 
ISSH"PRIO~ MASK , ISSA_VEC“BASE 
ISSH =RUNNTN NG_FLA 

ISSH- STACK, TSSH STKPTR 
$S1_TABLE 


SCODES,NOWRT 2 | 
Sent. ave R2 : 0212, 


InveRtEPt. "8 56, INTERCEPT : 0246 
RUNDWN_ADDR, #SYSSRUNDWN > 024 


See ee ae eee dL oO igs Some 


3 
Foor TRS FBTbiNs | WsdwGalefeaccbeace shcassix.es2:1°° «36 
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; Routine Size: 91 bytes, Routine Base: S$CODES + 0000 


OA 12 000 g BNE 1$ 3 
D3 00018 IsTL — JNTERCEPT ; 0250 
00006 CF : ; ‘ CALLS #0, RESET_ssv 5) 
2 0 ¢ ¢ 18: TSI NTERCEPT ; 35 
Fc az 000000006 BF 0 1026 MOVL  #SYS$QI0W, BASE : 0265, 
0008v g FB 000 CALLS MAKE _PO_SPACE ; 0366, 
4 EY 00¢ BLBC_ = STATUS, 2 ; 0267 | 
agord Bes BES Eta get on 
FB I MOVL #1, SSV_MUNGED_FLAG : O3r8 
00006 ¢f 10 vag SSH PRIO_MASK; RO ; 0281 | 
2 ADDL NTERCEPT, R : 
00006 ¢F 104A nOVAg VEC_BASE, RI : | 

0 1 Ce QO04F SUBL2 RI, PRIO MASK : 
50 8) pO 00086 28: ROVE TRO : 9388 | 
be 90087 - RET : : | 
50 4 00058 s§: CLAL_ RO : 0284 
4 5A 4$: RET 3 
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ROUTINE make_p0_space = 


teee 
i 
! Function: 


Create a save area for intercepting system services in PO 
space. 


' 

' 

' 

t 

: 

: Inputs: 
i None. 
' 

Outputs: 
1 

' 

‘ 


SSLESRANLESSELEA 


status is returned. 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 

} | 

BEGIN 

BIND 
exp_size = (issh_vec_length+Zx'1FF*) * <9 

| ISSH.MAR code side 

| 

LOCAL 

status; ! Return status 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Vu 


4 creete @ save area to save the system vector, data area, and code 
! in PO space. 


status = SEXPREG ( 
PAGCNT = exp_size, 
REGION = 
ACMODE = = pslsc kernel, 
RETADR anges 
If NOT sptetus TREN RETURN Status; 


et tt Ot et ts tt 


We uwry OOD NO NEU - O OONO Ew" 


B ges to create 
region 


vuv0v 


kernel mode to own pages 
range of allocated addresses 


: Map in from ISSH.MAR 
CHSMOVE (issh_vec_length, issh_vec_base, .range(0J); 


; Set protection to saved area. | 
Status = SSETPRT | 
INADR 8 ange, ; pages to protect 
PROT e prtse o ernal writable, others can read 
If NOT .stetus TREN “Re tURN Status; 


: Mapped in data area and control area. 


range! = .ran + issh_data_beg - issh_vec_base; 
oe £93 = £8} + issh_data_end - issh-vec_base - 1; 


range = .range 


i a 


<«* 


——— 


3 
vous 13-Se0-19 G3:48:48 — SiScbumgaastenccbeace. Shcassix.es2:1°°% caf 


$s 
Vv 


-000 

. : Set protection to data area. : 
3 p ‘$ status = SSETPRT ( $ 
3 : P paneer = rongete } popes, te protect a : 
; = prtsc uw); . everydo can access data pages Ps 
: 6 1f NOT eters TREN RETURN status; ae “es 3 
: 265 | : 
: $1 § : Set the pointer to saved area in PO space. 3 
3 re intercept = .range (0); 3 
3 $3 5 RETURN ss$_normal; 3 
: 27 $ END; : 
.EXTRN SYSSEXPREG, SYSSSETPRT : 
AKE PO. : : 

O3FC 00000 MAKE_PO_SPACE | 
-WORD Save R2,R3,R4,R5,R6,R7,RB,RP : 0285 : 
59 90006 F Of VAB  ISSH_VEC_BASE. R9 : | ; 
: 000000006 00 9€ MOVAB SYSSSETPRT, RB : | ; 
5 0000° CF 9E VAB RANGE, R7 : ; 
5 7¢ CLRQ = =( SP) : 0321. : 
; dD PUSHL R7 3 3 
00000000" 8F DD PUSHL #<<ISSH_VEC_LENGTH+511>a-9> : | : 
000000006 90 4 F CALLS #4, SYSSEXPREG : | : 
6 0 »D MOVL RO, STATUS ; 3 
4e 6 BLBC STATUS, 1$ : 9 2 | F 
00 87 ‘ 00006 BF 28 MOVC3 #ISSH_VEC_LENGTH, ISSH_VEC_BASE, @RANGE ; : 
E & 7D MOVa #14, =(SPY : 0334) F 
: 7¢ CLRQ = (SP) ; ; 
DD PUSHL R7 : : 
8 5 F CALLS #5, SYSSSETPRT ; 3 
$ 0 D MOVL 0; STATUS : : 
6 3 BLBC STATUS, 1$ F 0335 | : 
0 00006 i ‘ HOVAB ISSH_DATA_BEG, RO : 0340. : 
7 ¢ ADDL2 RANGE, : : 
1 69 : if HOVAR ISSH vec BASE, R1 ; : 
0000" CF 1 £3 oc SUBLS RI, RO, RANGET ; | : 
00006 ch 9F 000 MOVAB 1S$H_DATA_END, RO : 0341 : 
7 § JU ADDL RANG o Ps | Py 
1 9 : 00 ROAR 1SSH VEC_BASE, R1 : | ; 
0 1 00 SUBL2 RI ; : 
0000" ¢F FF AO GE 0006 MOVAB = -1(RO), RANGE1+4 3 | 3 
E 04 0066 mOVa #4, -(§P) + 0348. : 
E 7C 00065 cLRo = ; | : 
0000" CF 9F 0006 PUSHAB RANGE! : ; 
oh S33 GAUL fas SIRHgetP pe} 
4 EB 000 : BLBS STATUS, : + 0349 | : 
0 BO ye 18: MOVL STATUS, R : 
UU ; P| 
FC OAT 67 DO 0007C 2s: MOVL § RANGE, INTERCEPT > 0354. : 


¥be=000 oe $p- 1982 3: th: TEdimGhaS tens cbeauc. Sc Jssix. 832; ° aoe 3 
7 Be 80088 ~ | a die $8357 


; Routine Size: 132 bytes, Routine Base: SCODES + 0058 


; 272 0358 1 
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+ de 


: } ROUTINE ssik_setup : PSECT (lkcode_1) = 

3 1! 

; q 5 Senetrens 

; 1! yote System Service Intercept. Vector to be intercepted is 
: : : base, save/data area is in intercept. 

; } ! Inputs: 

; } ; Entry point address of this routine. 

3 ! Outputs: 

; : status is returned. 

: 4 1 inne 

3 1 

; BEGIN 

; 0 0 LOCAL 

; 1 old_stat, ' Old AST encbis status 

3 ¢ status, i Return statu 

3 temp_vec: VECTOR(2); i Parameter ior SSETPRT 

; 5 BIND 

: 36 tvl = base Csgn$c_sysvecpgs * 512, 0, 0, 0] : BBLOCK FIELD (tvb); 
: bs l_base = .base ' S$SV base address 

3 90 \“intercept = ‘ intercept: ' Copied SSV base address 

3 33 t=tvl = tvl; ! End of SSV 

; 9 

3 4 Be : : Save original system vector in saved area. Disable AST first. 
: 311 96 loin, O8 error (old_stat_= $SETAST (ENBFLG = 0)); 

3 1, 33 CHSMOVE (Sgn$c_sysvecpgs*512, .l_base, .l_intercept); 

: 314 

3; «315 04 ' Create virtual memory over the original system vector and copy 
3 1g 1 : the original contents back into it. 

: i £3 Fae FY s hte, aoe aate 

: range oy sgn $ s - 

; 5 status = (sysé cretva ¢ (ix "60060 ago"? sys$qiow)) ( 

3 range2, 

: j ronke aoe 

3 Z 0); i acmode? 

: 5 19 If NOT .status 

; $ I BEGIN 

{$59 1 

; 15 ! Enable AST. 
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13. X-1 74 
14 SKSVMSMASTER : (DEBUG. SRCISSIK.832;1 


$ 
“S 
: 
foe A_stet EQL ss$_wasset 
return_if error (SSETAST (ENBFLG = 1)); 


RETURN .status; 
END; 


restore original contents of save/data area 
CHSMOVE (sgn$c_sysvecpgs*512, .l_intercept. .l_base); 


Set protection. 
Status = SSETPRT ( 
INADR = range2, : pages to protect 
PROT = prt$c_urkw); ! kernal writable, others can read 
7 Status 


BEGIN 


IF 
THE 


Enable AST. 

gtd tet EQL ss$_wasset 
return_if_error (SSETAST (ENBFLG = 1)); 

RETURN .status; 

END; 


! Initialize local stack in PO. 
!' Stack pointer is 1 (points to the Ist element on stack), 
: stack value is 0 (nothing is active at the moment). 


slintercept ¢ issh_stkptr - issh_vec_base = 1; 
-lintercept + issh_stack - issh_Vec_Base = 0; 


: Make the running flag user-writable. 


temp_vec 9) = ssi_running_flag; 
temp_ve = ssi_running hags 
return_if_error (SSETPRT TINADR = temp_vec. PROT = prt$c_uw)); 


Set up the running bb B If this flag is set, means that SS1U.832 
is running so won't in ercept any ays em service from that eregren. 
Otherwise, go ahead to intercept or SSIU.832 is running in user 
mode, which is the only mode we intercept. 


l_intercept ¢ issh_running_flag - issh_vec_base = ssi_running_flag; 


--——— 


<i 
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up 3 pointers at the end of the Syston Service Vector. 
A pointer to the saved system service vector in PO. 

A pointer to the saved intercept code entry point. 

Address of the user defined system service. 
3 
9 
9 


= .llintercept; 

= ,l_intercept + issh_entry - issh_vec_base; 
= SST_USSK; 

(.ssi_table[-1])/2 -1 10 0 DO 


ssi_table C.i*2) : VECTOR C, LONG), 
-l_Base + .p C1) : BBLOCK; 


Py . oe 

3 75 =. 

$ 7 : - 

3 7 ‘ae 

3 4 : 

3 47 tvl Cptr 

3 480 tvl Lpgd 

; 481 tvl Lpgi 

3 4 ¢ 

P4 DECR i FROM 

3 4 BEGIN 

3 5 BIND 

3 p= 

; t= 

: O88 5 ! Verify it is in Syst 

; ' Ver s in System space. 

; 406 91 i « , : 

; 40 3 IF .p C1) GEQU %x‘800" 

; 4608 9 THEN 

; 609 94 

fa 36 ELSE 

> 41 9 

3 “18 $c98 

: «4146 0499 ! CALLS/CALLG intercepted at entry 
: 615 0500 ‘ 

; 616 0501 4 BEGIN 

: 417 9908 4 t ¢- 0, 8. 0) = op$ jb: ' JSB 
: 618 0503 4 t (3. 0, 0) = £x'BF'; ' aw* sdgressing mode 
> 419 0504 4 t (4; 0. 16, 0) = tvl Cpgd] - t C6, 0, 8, 01; 
; 420 0505 END; 

: 421 ge END; ! End of DECR. 
3; 4 ¢ 50 

3; 6 0508 

> 424 0509 ' Enable AST. 

: 425 0510 ‘ 

3 4 $ 0511 IF .old_stat EQL ss$_wasset 

3; 4 b21¢ THEN 

: 428 051 return_if error (SSETAST (ENBFLG = 1)); 
; 4629 0514 

; 4 0515 RETURN ss$_normal; 

: $e) Baig 

3 432 51 END; 


-EXTRN SYSSSETAST 
.PSECT LKCODE_1,NOWRT, SHR,2 
OFFC 00000 SSIK_SETUP: 


-WORD Save R2,R3.R4,R5,R6,R7,R8.R9,R10,R11 ; 0359 
8 9000 G 9 T3 03 MOVAB SYSSSETPRT, R11 : 
A 6 SF MOVAB SYSSSETAST R19 : 
9 F 9€ 00010 MOVAB L_INTERCEPT, R ; 


2m 


——SS 


w$3p-198e 12:18:90 DiSksunsmAstenscbeduG.sec3ssix.032;1°°% (5). v6 


ri 
18-5 ep 
14-Sep- 
5 8 001 SUBL : 
56 0000" ef A00 gf ; 001 aDoc$ Ae BASE, R6 : 
ae eae F D6 move BASE.“ BASE 3 
06 Ad 6 dO 000 MOVL RO, L_TUL ; 0391 
F D4 b00¢¢ CLRL. = (SP) ; 0396 
A FB 00C CALLS #1, SYSSSETAST : 
8 dO 00¢ MOVL RO, OLD_STAT : 
§ Fc AD BO 00 eer status. é ? 0397 
00 89 87 oad 00 MOVES #2860. (R7), @L_INTERCEPT : 
10 ag 7 06 MOVL 7, RANGE + 0403 
a \: OOFF c? 00 MOVAB 2559(R7), RANGE2+4 + 0404 
: 0004¢ CLRL = (SP) + 0405 
19 Ad 9F 000 PUSHAB RANGE ; 
10 a9 9F 000 PUSHAB RANGE : 
00000000+ 9F F i p CALLS #3, BECSYSSCRETVAS<H21474836468-SYSSQI0UD> 
i a : oe 
F 12 BNEQ 3 - F 
1 Pp CALLS SySSSETAST — 
2 . 8 ad st rari 3s ; 04 1 
FC Bo 00 89  OA00 BF 28 MOVC3 Hise @L_INTERCEPT, @l_BASE : He 
~ a: CLRO — Baws 
10 3 OF PUS 2 : 
68 5 F CALLS a. “SYsssereRt : 
9 D MOVL STATUS : 
11 a BLBS erATD + 043 
09 8 D1 CMPL D STAT. “9 + 044 
12 BNEQ 3 
1 0D PUSHL #1 > 0445 
A 1 FB CALLS #1 SYSSSETAST F 
F 5 E BLBC STAT s, 5$ : 
0 i ROVE STATUS, RO + 0447 | 
50 00006 CF £ MOVAB ISSH STKPIR, RO + 0455 | 
0 69 § ADDL L_INTERCEPT, RO 3 
1 00006 CF MOV att H_VEC_BASE, R1 ; 
0 1 ¢ SUBL2 R1, RO ; | 
0 1 p MOVL #1. (RO) ; | 
6 00006 cf . mOVAB 1SSH_ STACK, RO > 0456. 
9 ADDL2 L_INTERCEPT, RO F | 
1 00006 cf ROVAB ISSH vec BASE, R1 ; 
i ct : 
6€ 0006 CF BF MOVAB $SI_RUNNING_FLAG, TEMP_VEC > 0461 
04 AE 0006 CF 9€ MOVAB SS1_RUNNING FLAG, TEMP VEC +4 > 046 
7E 4 7D MOVO #4, 7=(SP) > 046 
— 7¢ cLRQ 0 = ( §p) ; 
10 AE OF PUSHAB TEMP VEC : 
68 ; FB CALLS #5, SYS a : 
6 a9 66 SbvL StAtUs, 38 CEPT : 0471 
3 0000GCF40 Be MOVAB ISSH_RUNNING_ FLAGEROJ, R1 ; 


4 
yo4000 1$-se0-1984 $3:48i48 — UExsumthaStenscocoue. shcrssix.e32;1°°%* «33 


1 
3 00006 gf 9 £ MOV 1$SH VEC BASE, R2 : 
2 ; SUBL Re, R 3 
61 00006 gf MOV SSI_RUNNING_FLAG, (R1) : 
FC As 0 ED MOVL R0,"= ; 9479 
99 GCr4 Fl MOVAB SSH ENTRYEROI, R1 + 0480 
0 G CF 7 MOV SSH yEC. RO ; 
FB AG 1 re SUBL3 RO, RI, = (gS : 
F4 6 000000006 HOVAB SSf_uSSK, -12(R6) + 0481 
51 00006 cf C DIVLS #2,°SS1_fABLE-4, R1 + 0483 
0 9 10F MOVL RI. I + 0487 
51 { 8 Wie 6$ OOH i R1 + 0486. 
3 0000GCF41 DF 00118 MOVAL SSI tABLECR1I, R2 ; 
51 FC OA 4 A2 Ci OO11E ADDL 4(R2), L BASE, R1 + 0487. 
00000800 =F Ad 01 001 4 CMPL 4(R2). #204 0492 | 
1 3 0012¢ BGEQU 7$ F 
02. Al DF 16 8F : 001 E #57110, 2¢R1) : 0502 
3 FB AG 001 -B(R6), R2 : 0504 | 
51 C2 001 SUBL2 R1, R : 
04 Al 5 2 A3 001 SUBW #6, R2, 4(R1) 3 
D1 F4 99140 7$: SOBGEQ 1, 6$ + 0483 
09 58 01 0014 CMPL OLD_STAT, rT) > 0511 
08 12 0 148 BNEG $ : 
1 DD 0014 PUSHL #1 + 0513 
6A 1 FB 014A CALLS #1, SYSSSETAST ; 
93 0 € 00140 BLBC STATUS, 9$ : 
0 01 000 139 8$: MOVL #1, RO : 051 
04 00153 9$: RET : 051 
; Routine Size: 340 bytes, Routine Base: LKCODE_1 + 0000 
433 0518 1 
434 0519 1 END 
435 0520 0 ELUDOM 
; PSECT SUMMARY 
3 Name Bytes Attributes 
: $GLOBALS NOVEC, WRT, RD .NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
+ SOWNS NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC.ALIGN(2) 
+ $CODES 3 NOVEC.NOWRT. RD. sNOSHR, LCL, REL, CON.NOPIC,ALIGN(2) 
> LKCODE_1 40 NOVEC.NOWRT, RD. EXE. SHR. LCL. REL. CON.NOPIC.ALIGN(O) 


eececccce Symbols ececoces Pages Processing 
File Total Loaded Percent Mapped Time 


WBoseoctgge a$et)19 yay yt eu isse82 40-74 


18619 12 0 1000 00:01.8 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE)/LIS=LIS$:SSIK/OBJ=OBJ$:SSIK MSRC$:SSIK/UPDATE=(ENHS$:SSIK) 
Sise; 563 ae ; 48 data bytes 


Lexenes/CPU-Rin: 1 $08 
qenery Ue 131 pages 
Compi Bs nos Complete 


$hc)ssix.832; ;1 
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DENTIAL .AND PROPRIETARY 


DIGIT 
CONFI 


